Mac Magazin/MacEasy 27/Mac Magazin and MacEasy Magazine CD - Issue 27.iso/Grafik & Text/Sans-Faute⁄Grammaire ƒ/Adaptateurs/spécial HyperCard/Sources des scripts (anglais)/Vérification Carte HyperCard

Text File | 1996-02-20 | 746b | 30 lines

tell application "HyperCard 2.3"
    activate current stack

    set num to 1
    repeat number of card field times
        if not dontSearch of card field num then
            set texttoCheck to card field num as styled text
            tell application "Sans-Faute/Grammaire 2"
                set textchecked to Checking texttoCheck
            end tell
            set card field num to textchecked
        end if
        set num to num + 1
    end repeat

    set num to 1
    repeat number of background field times
        if not dontSearch of background field num then
            set texttoCheck to background field num as styled text
            tell application "Sans-Faute/Grammaire 2"
                set textchecked to Checking texttoCheck
            end tell
            set background field num to textchecked
        end if
        set num to num + 1

    end repeat
end tell